home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PRIM / MODE-MOT.ELC < prev    next >
Text File  |  1993-03-28  |  5KB  |  42 lines
  1. ;;; compiled by @win386 on Sat Mar 13 01:39:20 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/prim/mode-mot.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar mode-motion-hook nil "\
  14. Function or functions which are called whenever the mouse moves.
  15. You should normally use this rather than `mouse-motion-handler', which 
  16. does some additional window-system-dependent things.  This hook is local
  17. to every buffer, and should normally be set up by major-modes which want
  18. to use special highlighting.  Every time the mouse moves over a window,
  19. the mode-motion-hook of the buffer of that window is run.")
  20. (byte-code "└┴!ê┬├!¼é─└├!ê┼╞Mç" [make-variable-buffer-local mode-motion-hook boundp mode-motion-extent nil mode-motion-highlight-internal #[(event backward forward) "└    !ë½à├\n!¬é─ \n¡â╞\n!ë¡â╚    !    ¡╪èqê    ½▓    bê╩╦╠Åê`    ╩═╬Åê½Å╨!½ë╤    `#¬¬╥    `\"╙╘\"¬£¡ÿ╨!¡Æ╒!╓!=?¡å╤╫ë#),ç" [event-window event window window-screen selected-screen screen window-buffer buffer event-point point nil (funcall backward) ((error)) (funcall forward) ((error)) mode-motion-extent extent-buffer set-extent-endpoints make-extent set-extent-attribute highlight extent-start-position extent-end-position 1] 5]] 2)
  21. (fset 'mode-motion-highlight-line #[(event) "└    ┬├#ç" [mode-motion-highlight-internal event beginning-of-line end-of-line] 4 "\
  22. For use as the value of `mode-motion-hook' -- highlight line under mouse."])
  23. (fset 'mode-motion-highlight-word #[(event) "└    ┬├#ç" [mode-motion-highlight-internal event #[nil "└└┬=½â├¬ç    ¼â─¬ü┼╞╔!½Æ╩ ê╔!½à╩ ê¬u└u¬û╔!¡É╩ ê╔!½à╩ ê¬u└u+ç" [nil symbolp t "\\w\\|\\s_\\|\\s'" "\\w" "[^     \n]" "[     ]" white-space word-constituent looking-at backward-char] 2] #[nil "└┴!ç" [mouse-track-end-of-word nil] 2]] 4 "\
  24. For use as the value of `mode-motion-hook' -- highlight word under mouse."])
  25. (fset 'mode-motion-highlight-symbol #[(event) "└    ┬├#ç" [mode-motion-highlight-internal event #[nil "└└ë=½â┬¬ç    ¼â├¬ü─┼╚!½Æ╔ ê╚!½à╔ ê¬u╩u¬û╚!¡É╔ ê╚!½à╔ ê¬u╩u+ç" [t symbolp "\\w\\|\\s_\\|\\s'" "\\w" "[^     \n]" "[     ]" white-space word-constituent looking-at backward-char nil] 2] #[nil "└┴!ç" [mouse-track-end-of-word t] 2]] 4 "\
  26. For use as the value of `mode-motion-hook' -- highlight symbol under mouse."])
  27. (fset 'mode-motion-highlight-sexp #[(event) "└    ┬├#ç" [mode-motion-highlight-internal event #[nil "gz└U?¡à┴`┬\"bç" [40 scan-sexps -1] 3] #[nil "gz└U½â┴uê┬`┴\"bç" [41 1 scan-sexps] 3]] 4 "\
  28. For use as the value of `mode-motion-hook' -- highlight form under mouse."])
  29. (byte-code "└┴Mê┬├Mç" [minibuf-mouse-tracker #[(event) "┴=├ ┼╞#)ç" [minibuffer-completion-table read-file-name-internal filename-kludge-p mode-motion-highlight-internal event #[nil "½â┴¬ü┬ë┬=½â─¬ç ¼â┼¬ü╞╟    ╩    !½Æ╦ ê╩    !½à╦ ê¬u╠u¬û╩!¡É╦ ê╩!½à╦ ê¬u╠u+ç" [filename-kludge-p nonwhite t symbolp "\\w\\|\\s_\\|\\s'" "\\w" "[^     \n]" "[     ]" white-space word-constituent looking-at backward-char nil] 3] #[nil "`└├ ½â┼¬ü╞!ê\n`U¼ä¼ä\nb¬┐\n`{ ½ä╚    !╔    \n#ë ╞=«Ñ     Ü½¥\n?«Ü\n;«ò\n╠!½ç═    \"¬ü    !«é\nb)*ç" [nil string p mouse-track-end-of-word filename-kludge-p nonwhite t minibuffer-completion-table minibuf-select-kludge-filename try-completion minibuffer-completion-predicate comp vectorp intern-soft] 5]] 4] minibuf-select-kludge-filename #[(string) "èqê┴┬├ ! P!)ç" [mouse-grabbed-buffer expand-file-name file-name-directory buffer-string string] 3]] 2)
  30. (fset 'minibuf-select-highlighted-completion #[(event) "┴=┬ëè╞!ê╚╔!!qê\n½ï╦\n!╠\n!U½ä═¬ó╦\n!╠\n!{½ä╬ !╧\n╨ë#êqê╥ ê cê) ½í╙╒!\"ë½å╪!¬ï½à┘┌!¬â┘█!)¬ÿ▄▌ !ê½î▐ !½çdbê▀ ¬äαß┬\"+ç" [minibuffer-completion-table read-file-name-internal nil command-p completion filename-kludge-p minibuf-mouse-tracker event window-buffer event-window mode-motion-extent extent-start-position extent-end-position t minibuf-select-kludge-filename set-extent-endpoints 1 mouse-grabbed-buffer erase-buffer lookup-key global-map vector current-mouse-event command call-interactively error "Highlighted words are valid completions.  You may select one." "no completions" select-window minibuffer-window file-directory-p minibuffer-completion-help throw exit] 5 "\
  31. Select the highlighted text under the mouse as a minibuffer response.
  32. When the minibuffer is being used to prompt the user for a completion,
  33. any valid completions which are visible on the screen will highlight
  34. when the mouse moves over them.  Clicking \\<minibuffer-local-map>\\[minibuf-select-highlighted-completion] will select the
  35. highlighted completion under the mouse.
  36.  
  37. If the mouse is clicked while while not over a highlighted completion,
  38. then the global binding of \\[minibuf-select-highlighted-completion] will be executed instead.  In this
  39. way you can get at the normal global behavior of \\[minibuf-select-highlighted-completion] as well as
  40. the special minibuffer behavior." "e"])
  41. (byte-code "└    ┬├#ê─┼!ç" [define-key minibuffer-local-map button2 minibuf-select-highlighted-completion provide mode-motion] 4)
  42.